home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / toolkit / riruf1 / rufmb.bas < prev    next >
Encoding:
BASIC Source File  |  1994-12-27  |  965 b   |  48 lines
  1. Option Explicit
  2.  
  3. Global Const MB_OK = 0
  4. Global Const MB_OKCANCEL = 1
  5. Global Const MB_YESNOCANCEL = 3
  6. Global Const MB_YESNO = 4
  7. Global Const MB_ICONSTOP = 16
  8. Global Const MB_ICONQUESTION = 32
  9. Global Const MB_ICONEXCLAMATION = 48
  10. Global Const MB_ICONINFORMATION = 64
  11. Global Const MB_DEFBUTTON2 = 256
  12. Global Const IDYES = 6
  13. Global Const IDNO = 7
  14.  
  15. Dim sTheAppName$
  16.  
  17. Function AskUser (ByVal sQuestion As String) As Integer
  18.     Dim nResponse%
  19.  
  20.     Beep
  21.     nResponse = MsgBox(sQuestion, MB_YESNO + MB_ICONQUESTION, sTheAppName)
  22.     If nResponse = IDYES Then
  23.         AskUser = True
  24.     Else
  25.         AskUser = False
  26.     End If
  27.  
  28. End Function
  29.  
  30. Sub InformUser (sMsg As String)
  31.  
  32.     Beep
  33.     MsgBox sMsg, MB_ICONEXCLAMATION + MB_OK, sTheAppName
  34.  
  35. End Sub
  36.  
  37. Sub InitMB (ByVal sAppName As String)
  38.     sTheAppName = sAppName
  39. End Sub
  40.  
  41. Sub StopUser (sMsg As String)
  42.  
  43.     Beep
  44.     MsgBox sMsg, MB_ICONSTOP + MB_OK, sTheAppName
  45.  
  46. End Sub
  47.  
  48.